; Music of Last Race, The (1989) (Black System)
; Ripped by Megachur the 02/06/2007

	write "LASTRACE.BIN"

music_date_rip	equ &0267
music_adr	equ &8eb9
first_theme	equ 0
last_theme	equ 0

	read "music_header_v1_0.asm"

;
.real_init_music
;
	push af
	push de
	call #bca7
	pop de
	pop af
	cp #00
	ld hl,l916d
	jp z,#bcdd
	ld (l9183),de
	ld a,(de)
	ld (l9185),a
	ld a,#01
	ld hl,l9187
	call #bcbc
	ld a,#01
	ld hl,l9191
	call #bcbf
	ld a,#02
	ld hl,l9198
	call #bcbc
	ld a,#02
	ld hl,l919c
	call #bcbf
	ld a,#03
	ld hl,l91a3
	call #bcbc
	ld a,#03
	ld hl,l91aa
	call #bcbf
	ld a,#04
	ld hl,l91b1
	call #bcbc
	ld a,#05
	ld hl,l91be
	call #bcbc
	ld a,#06
	ld hl,l91c2
	call #bcbc
	ld a,#07
	ld hl,l91cc
	call #bcbc
	ld a,#08
	ld hl,l91d3
	call #bcbc
	xor a
	ld (l9181),a
	ld (l9182),a
	ld (l9082),a
	ld a,#01
	ld (l917c),a
	ld hl,(l9183)
	inc hl
	ld (l917f),hl
	call l9006
	ld hl,l916d
	ld bc,#8100
	ld de,l8f4d
	jp #bcd7
;
.play_music
.l8f4d
;
	di
	push af
	push de
	push hl
	push bc
	push ix
	push iy
	call l8f64
	pop iy
	pop ix
	pop bc
	pop hl
	pop de
	pop af
	ei
	reti
.l8f64
	ld a,(l917c)
	dec a
	cp #00
	jp z,l8f71
	ld (l917c),a
	ret
.l8f71
	ld b,#03
	ld ix,(l917d)
.l8f77
	push bc
	push ix
	ld de,#0001
	ld a,(ix+#00)
	cp #00
	jp z,l8f8b
	call l8fe2
	ld de,#0005
.l8f8b
	pop ix
	pop bc
	add ix,de
	djnz l8f77
	ld a,(ix+#00)
	inc a
	ld (l917c),a
	inc ix
	ld (l917d),ix
	ld a,(ix+#00)
	cp #ff
	ret nz
	xor a
	ld (l9082),a
	jp l9006
.l8fac
	ld a,#0f
	ld iy,l90a7
	jp l8fc7
.l8fb5
	ld a,#0f
	ld iy,l90b0
	jp l8fc7
.l8fbe
	ld a,#0f
	ld iy,l90d4
	jp l8fc7
.l8fc7
	push af
	push ix
	push iy
	ld (iy+#06),a
	call l9054
	pop iy
	pop ix
	pop af
	dec a
	cp #09
	jp nz,l8fc7
	ld (iy+#06),#0f
	ret
.l8fe2
	ld a,(ix+#04)
	cp #10
	jp z,l8fac
	cp #11
	jp z,l8fb5
	cp #13
	jp z,l8fbe
	ld iy,l90a7
.l8ff8
	dec a
	cp #00
	jp z,l9054
	ld de,#0009
	add iy,de
	jp l8ff8
.l9006
	ld hl,(l917f)
	inc hl
	ld a,(hl)
	cp #00
	jp nz,l9020
	xor a
	ld (l9181),a
	ld (l9182),a
	ld (l9082),a
	ld hl,(l9183)
	inc hl
	inc hl
	ld a,(hl)
.l9020
	ld (l917f),hl
	cp #64
	jp z,l908f
	cp #65
	jp z,l9097
	ld ix,(l9185)
	ld de,(l9183)
	add ix,de
.l9037
	dec a
	cp #00
	jp z,l9045
	ld de,#0002
	add ix,de
	jp l9037
.l9045
	ld l,(ix+#00)
	ld h,(ix+#01)
	ld de,(l9183)
	add hl,de
	ld (l917d),hl
	ret
.l9054
	ld a,(ix+#00)
	ld (iy+#00),a
	ld l,(ix+#01)
	ld h,(ix+#02)
	call l9087
	ld (iy+#03),l
	ld (iy+#04),h
	ld a,(ix+#03)
	ld (iy+#07),a
	ld (iy+#08),#00
	push iy
	pop hl
	ld a,(l9182)
	cp #00
	jp z,#bcaa
	ld a,(ix+#00)
.l9082 equ $ + 1
	cp #00
	jp nz,#bcaa
	ret
.l9087
	ld a,(l9181)
	cp #00
	ret z
	add hl,hl
	ret
.l908f
	ld a,#01
	ld (l9181),a
	jp l9006
.l9097
	ld a,#01
	ld (l9182),a
	inc hl
	ld a,(hl)
	ld (l9082),a
	ld (l917f),hl
	jp l9006
.l90a7
	db #00,#01,#00,#00,#00,#00,#0f,#00
.l90b0 equ $ + 1
	db #00,#00,#02,#00,#00,#00,#05,#0f
	db #00,#00,#00,#03,#00,#00,#00,#00
	db #0f,#00,#00,#00,#04,#00,#00,#00
	db #00,#00,#00,#00,#00,#02,#00,#00
.l90d4 equ $ + 5
	db #00,#00,#0f,#00,#00,#00,#02,#00
	db #00,#00,#0f,#0f,#00,#00,#00,#02
	db #00,#00,#00,#19,#0f,#00,#00,#00
	db #05,#00,#00,#00,#05,#0f,#00,#00
	db #00,#05,#00,#00,#00,#0f,#0f,#00
	db #00,#00,#05,#00,#00,#00,#0f,#0f
	db #00,#00,#00,#05,#00,#00,#00,#00
	db #0f,#00,#00,#00,#03,#01,#00,#00
	db #00,#0f,#00,#00,#00,#06,#00,#00
	db #00,#01,#00,#00,#00,#00,#00,#02
	db #00,#00,#00,#0c,#00,#00,#00,#03
	db #02,#00,#00,#00,#0f,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#04,#02,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#03,#03,#00,#00
	db #00,#00,#00,#00,#00,#07,#00,#00
	db #00,#00,#00,#00,#00,#00,#08,#00
.l916d equ $ + 6
	db #00,#00,#03,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l917d equ $ + 6
.l917c equ $ + 5
	db #00,#00,#00,#00,#00,#00,#00,#00
.l9185 equ $ + 6
.l9183 equ $ + 4
.l9182 equ $ + 3
.l9181 equ $ + 2
.l917f
	db #00,#00,#00,#00,#00,#00,#00,#00
.l9187
	db #03,#01,#00,#0a,#0a,#ff,#01,#01
.l9191 equ $ + 2
	db #00,#0a,#82,#14,#01,#01,#14,#ff
.l919c equ $ + 5
.l9198 equ $ + 1
	db #01,#01,#0f,#ff,#02,#82,#03,#01
.l91a3 equ $ + 4
	db #03,#03,#ff,#03,#02,#0a,#ff,#08
.l91aa equ $ + 3
	db #05,#ff,#04,#03,#50,#01,#01,#14
.l91b1 equ $ + 2
	db #02,#01,#04,#01,#07,#01,#03,#02
.l91be equ $ + 7
	db #01,#01,#00,#02,#0a,#ff,#05,#01
.l91c2 equ $ + 3
	db #0f,#ff,#01,#03,#01,#0a,#01,#01
.l91cc equ $ + 5
	db #00,#04,#05,#fe,#01,#02,#01,#0f
.l91d3 equ $ + 4
	db #05,#0a,#ff,#02,#02,#01,#0c,#01
.l91da equ $ + 3
	db #0c,#ff,#01,#1b,#00,#65,#02,#01
	db #65,#02,#01,#02,#65,#02,#01,#65
	db #02,#01,#01,#01,#01,#02,#02,#65
	db #01,#02,#65,#01,#02,#00,#21,#00
	db #ce,#00,#01,#01,#01,#00,#00,#14
	db #06,#02,#1c,#01,#14,#01,#04,#8e
	db #00,#14,#01,#09,#01,#00,#00,#14
	db #0d,#00,#00,#09,#01,#00,#00,#14
	db #02,#02,#1c,#01,#14,#01,#04,#8e
	db #00,#64,#12,#09,#01,#00,#00,#14
	db #0d,#00,#00,#09,#01,#00,#00,#14
	db #06,#02,#fd,#00,#14,#01,#00,#09
	db #01,#00,#00,#14,#06,#02,#fd,#00
	db #14,#01,#00,#09,#01,#00,#00,#14
	db #02,#02,#fd,#00,#14,#01,#00,#09
	db #01,#00,#00,#14,#06,#02,#7b,#01
	db #14,#01,#00,#09,#01,#00,#00,#14
	db #06,#00,#00,#09,#01,#00,#00,#14
	db #0d,#02,#7b,#01,#14,#01,#00,#09
	db #01,#00,#00,#14,#02,#02,#aa,#01
	db #14,#01,#00,#09,#01,#00,#00,#14
	db #0d,#02,#7b,#01,#14,#10,#00,#09
	db #01,#00,#00,#14,#06,#00,#00,#09
	db #01,#00,#00,#14,#06,#00,#00,#09
	db #01,#00,#00,#14,#02,#00,#00,#09
	db #01,#00,#00,#14,#06,#00,#00,#09
	db #ff,#01,#00,#00,#14,#06,#04,#1c
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#0d,#04,#fd,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#02,#04,#ef
	db #00,#14,#01,#00,#09,#01,#00,#00
	db #14,#0d,#00,#00,#09,#01,#00,#00
	db #14,#06,#04,#1c,#01,#14,#01,#00
	db #09,#01,#00,#00,#14,#06,#02,#1c
	db #01,#64,#0f,#00,#09,#01,#00,#00
	db #14,#02,#00,#00,#09,#01,#00,#00
	db #14,#06,#04,#8e,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#06,#04,#8e
	db #00,#14,#01,#00,#09,#01,#00,#00
	db #14,#0d,#00,#00,#09,#01,#00,#00
	db #14,#02,#04,#9f,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#04,#8e
	db #00,#64,#0e,#00,#09,#01,#00,#00
	db #14,#06,#00,#00,#09,#01,#00,#00
	db #14,#06,#00,#00,#09,#01,#00,#00
	db #14,#02,#00,#00,#09,#01,#00,#00
	db #14,#06,#00,#00,#09,#01,#00,#00
	db #14,#06,#02,#66,#01,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#02,#66
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#02,#02,#3f,#01,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#00,#00,#14,#06,#02,#66
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#06,#02,#66,#01,#64,#0f,#00
	db #09,#01,#00,#00,#14,#02,#00,#00
	db #09,#01,#00,#00,#14,#06,#04,#b3
	db #00,#14,#01,#00,#09,#01,#00,#00
	db #14,#06,#04,#b3,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#00,#00,#14,#02,#04,#be
	db #00,#14,#01,#00,#09,#01,#00,#00
	db #14,#0d,#04,#b3,#00,#96,#0f,#00
	db #09,#01,#00,#00,#14,#06,#00,#00
	db #09,#01,#00,#00,#14,#06,#02,#66
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#02,#02,#66,#01,#14,#01,#00
	db #09,#01,#00,#00,#14,#06,#02,#7b
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#06,#02,#aa,#01,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#00,#00,#14,#02,#02,#de
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#0d,#02,#aa,#01,#64,#0f,#00
	db #09,#01,#00,#00,#14,#06,#00,#00
	db #09,#01,#00,#00,#14,#06,#04,#d5
	db #00,#14,#01,#00,#09,#01,#00,#00
	db #14,#02,#04,#d5,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#06,#04,#d5
	db #00,#14,#01,#00,#09,#01,#00,#00
	db #14,#06,#04,#9f,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#00,#00,#14,#02,#04,#8e
	db #00,#14,#01,#00,#09,#01,#00,#00
	db #14,#0d,#04,#9f,#00,#14,#01,#00
	db #09,#01,#00,#00,#14,#06,#00,#00
	db #09,#01,#00,#00,#14,#06,#04,#66
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#02,#04,#66,#01,#14,#01,#00
	db #09,#01,#00,#00,#14,#06,#04,#66
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#06,#04,#7b,#01,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#00,#00,#14,#02,#04,#66
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#0d,#04,#7b,#01,#96,#0f,#00
	db #09,#01,#00,#00,#14,#06,#00,#00
	db #09,#01,#00,#00,#14,#06,#02,#aa
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#02,#02,#aa,#01,#14,#01,#00
	db #09,#01,#00,#00,#14,#06,#02,#aa
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#06,#02,#7b,#01,#14,#01,#00
	db #09,#01,#00,#00,#14,#0d,#00,#00
	db #09,#01,#00,#00,#14,#02,#02,#66
	db #01,#14,#01,#00,#09,#01,#00,#00
	db #14,#0d,#02,#7b,#01,#64,#0f,#00
	db #09,#01,#00,#00,#14,#06,#00,#00
	db #09,#01,#00,#00,#14,#06,#00,#00
	db #09,#01,#00,#00,#14,#02,#00,#00
	db #09,#01,#00,#00,#14,#06,#00,#00
	db #09,#ff
;#75c0
;
.init_music	; added by Megachur
;
	ld a,#01
	ld de,l91da
	jp real_init_music

;
.game_name
	db "Last Race",0
.game_year
	db "1989",0
.game_publisher
	db "Black System",0
.music_author
	db "",0
.music_comment
	db "",0

	read "music_end_v1_0.asm"
